home *** CD-ROM | disk | FTP | other *** search
/ Georgia Wildfire Prevention / Georgia Wildfire Prevention.iso / pc / media / dirs / BackUp / PrescribedBurn.dir / 00009_Script_MovieTimer Behavior < prev    next >
Text File  |  2002-10-15  |  1KB  |  52 lines
  1. --MOVIETIMER--
  2. --Attach to movie so it can send messages to the sprites letting them know which movie is playing and how far along it is.
  3.  
  4. property SpNum, MyNum, MyName, CurrentMovie, Guard, guard2
  5.  
  6. --Captures the spritenumber, etc.
  7. on new me
  8.   SpNum = me.spritenum
  9.   MyNum=sprite(SpNum).member.number
  10.   MyName=member(MyNum).name
  11.   CurrentMovie = "Setting"
  12.   Guard = 0
  13.   guard2 = 0
  14. end
  15.  
  16. --Sends the movie time to the sprites.
  17. on prepareframe me
  18.   if guard = 0 then
  19.     sendallsprites(#FireUp) --initializes the sprites.
  20.     guard = 1
  21.   end if
  22.   set TheTime = sprite(Spnum).movietime
  23.   --  member("Timer").text = CurrentMovie && string(TheTime) --For Development only.
  24.   if TheTime = member(CurrentMovie).duration then
  25.     case (CurrentMovie) of
  26.       "Setting" : CurrentMovie = "FireBreak"
  27.       "FireBreak" : CurrentMovie = "BackingFire"
  28.       "BackingFire" : CurrentMovie = "BlackLine"
  29.       "BlackLine" : CurrentMovie = "SpotHeadFire"
  30.       "SpotHeadFire" : CurrentMovie = "HumanFireBreak"
  31.     end case
  32.     sprite(SpNum).membernum = member(CurrentMovie).number
  33.   end if
  34.   if CurrentMovie = "HumanFireBreak" and TheTime = member(CurrentMovie).duration and guard2 = 0 then
  35.     sendallsprites(#changetoggle)
  36.     guard2 = 1
  37.   end if
  38.   sendallsprites(#countercheck, TheTime, CurrentMovie)
  39.   updateStage
  40. end
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.